home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Utilities / Dismount / Example / CDFSSelector next >
Text File  |  1993-06-23  |  996b  |  39 lines
  1. failat 21
  2. if $CDFS not eq "No CDFS" >NIL:
  3. if not error
  4.   requestchoice >env:cdsystem title "CD Filesystem selector by Jaca/D-Caps" "CD0: is already mounted*n*using $cdfs CDFS" "Dismount it!" "Remount CD0:" "Cancel"
  5.   if $cdsystem eq "1"
  6.     c:dismount CD0:
  7.     setenv cdfs "No CDFS"
  8.     skip koniec
  9.   endif
  10.   if $cdsystem eq "2"
  11.     c:dismount CD0:
  12.     setenv cdfs "No CDFS"
  13.   endif
  14.   if $cdsystem eq "0"
  15.     skip koniec
  16.   endif
  17. endif
  18. endif
  19. requestchoice >env:cdsystem title "CD Filesystem selector by Jaca/D-Caps" body "Please select the filesystem*n*to mount your CD with" "AsimCDFS" "AllegroCDFS" "CacheCDFS" "Cancel"
  20. if $cdsystem eq "0"
  21. skip koniec
  22. endif
  23. if $cdsystem eq "1"
  24. setenv cdfs "Asim"
  25. mount cd0: from devs:drivers/asim.mountlist
  26. endif
  27. if $cdsystem eq "2"
  28. setenv cdfs "Allegro"
  29. mount cd0: from devs:drivers/allegro.mountlist
  30. endif
  31. if $cdsystem eq "3"
  32. setenv cdfs "Cache"
  33. mount cd0: from devs:drivers/cachecdfs.mountlist
  34. endif
  35. lab koniec
  36. if exists env:cdsystem
  37. unsetenv cdsystem
  38. endif
  39.